home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 September / macformat-004.iso / Shareware City / Sound / DX7 Librarian 1.0.9 / Sample Scripts / 16 Change Patch Parameter - 3 < prev    next >
Encoding:
Text File  |  1994-07-11  |  597 b   |  15 lines  |  [TEXT/ToyS]
  1. tell application "DX7 Librarian"
  2.     activate -- if needed
  3.     repeat with i from 0 to 7
  4.         set Parameter i of Window "Sample" to (i + 1) -- only for check
  5.     end repeat
  6.     repeat with i from 0 to 7
  7.         set x to Parameter i of Window "Sample" -- get data of op.6
  8.         set Parameter (21 + i) of Window "Sample" to x -- copy to op.5
  9.         set Parameter (42 + i) of Window "Sample" to x -- copy to op.4
  10.         set Parameter (63 + i) of Window "Sample" to x -- copy to op.3
  11.         set Parameter (84 + i) of Window "Sample" to x -- copy to op.2
  12.         set Parameter (105 + i) of Window "Sample" to x -- copy to op.1
  13.     end repeat
  14. end tell
  15.